home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Wonky Flux Batch 2019 02
/
Wonky_Flux_Batch_2019-02.zip
/
Wonky Flux Batch 2019-02
/
106 - Proboard KEY Floppy - Must be in Drive 1.dsk
/
TIMETRACKER.MOD
/
TT.EDITOR.S
< prev
Wrap
Text File
|
1989-06-04
|
2KB
|
84 lines
; |||||||||||||||||||||||||||||||
; TimeTracker.Editor.s by jpe
; ProBOARD 805-239-4292 24 hrs.
; |||||||||||||||||||||||||||||||
; ProBOARD Custom Mods June 4th, 1989 @ 01:15 AM
Askii
input @2\"Enter user number to Edit: " i$
if i$="" end
xn=val(i$):f$="b1:monthly.time":print\"Is Your File Named "f$" ? ";
print"(Y/n): ";
get i$:if i$=chr$(13) print" ";
print chr$(8)" "chr$(8);
if i$="N" or i$="n" print"Nope":goto change
print"Yep"
Redoer
open #1,f$:position #1,128,xn:input #1,o9$,o8,tt,o7,o9:close:o8=o8/60
Rd
print\"Current Month For Number "xn" is "o9$" Correct? ";
print"(Y/n): ";
get i$:if i$=chr$(13) print" ";
print chr$(8)" "chr$(8);
if i$="N" or i$="n" print"Nope":goto chng
print"Yep"
Rd1
print\"Current Setting For Number "xn\" is Approx. "o7" Hrs "o8" mins. For "o9$" Change This? ";
print"(y/N): ";
get i$:if i$=chr$(13) print" ";
print chr$(8)" "chr$(8);
if i$="Y" or i$="y" print"Yep":goto chng1
print"Nope"
Redo1
print\"Number "xn" Has "tt" Additional Hours To Date."
print"Change This Data? ";
print"(y/N): ";
get i$:if i$=chr$(13) print" ";
print chr$(8)" "chr$(8);
if i$="Y" or i$="y" print"Yep":goto chng2
print"Nope"
Doer
Print\"Set Number "xn" To "o7" Hrs "o8" Mins,"
print"for the Month of "o9$" With "\tt" Additional Hours, Correct? ";
print"(Y/n): ";
get i$:if i$=chr$(13) print" ";
print chr$(8)" "chr$(8);
if i$="N" or i$="n" print"Nope":goto askii
print"Yep":o8=o8*60
open #1,f$:position #1,128,xn:print #1,o9$,o8,tt,o7,o9:close
print\"Changes Saved..."\\\\"Hit Return To Quit":goto askii
Change
input @3\"Enter Your Files Complete Pathname: " f$
if i$="" goto askii
print\"Got it Thanks...":goto redoer
Chng
input @3\"Change Month To: " i$
if i$="" goto askii
o9$=i$:goto rd
Chng1
input @3\"Enter Number Of Hours To Set Them To: " ii$
input @3\"Enter Number Of Minutes To Set Them To: " i$
o7=val(ii$):o8=val(i$):goto rd1
Chng2
input @3\"Enter Number Of Hours To Set Them To: " i$
if i$="" goto askii
tt=val(i$):goto redo1
; EOF